"! Info:
A class representing a colour. Has separate red, green and blue components, each which can range from 0 to 7.
Examples:

"
Object subclass: Colour [
| red green blue |
<category: 'Library-Drawing'>
"! "
blue [
^ blue.  ]

"! "
blue: b [
blue := b.  ]

"! "
green [
^ green.  ]

"! "
green: g [
green := g.  ]

"! "
red [
^ red.  ]

"! "
red: r [
red := r.  ]

]

"! "
MetaObject subclass: MetaColour [
<category: 'Library-Drawing'>
"! Info:
Create a new black colour.
Examples:

"
black [
^ self red: 0 green: 0 blue: 0.  ]

"! Info:
Create a new blue colour.
Examples:

"
blue [
^ self red: 0 green: 0 blue: 7.  ]

"! Info:
Create a new green colour.
Examples:

"
green [
^ self red: 0 green: 7 blue: 0.  ]

"! Info:
Create a new red colour.
Examples:

"
red [
^ self red: 7 green: 0 blue: 0.  ]

"! Info:
Create a new colour. Takes red, green and blue values as arguments. These component values range from 0 to 7.
Examples:
\"Create white\"
Colour red: 7 green: 7 blue: 7.
\"Create purple\"
Colour red: 7 green: 0 blue: 7.
"
red: r green: g blue: b [
^ (self new) red: r; green: g; blue: b.  ]

"! Info:
Create a new white colour.
Examples:

"
white [
^ self red: 7 green: 7 blue: 7.  ]

]

